home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9109a.d64 / miniwrite 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  681 b   |  21 lines
  1. 1 PRINT CHR$(14):OPEN 1,4,2:POKE 646,5:PRINT" [146]";:POKE 53280,0:POKE 53281,0
  2. 2 A$="":GET A$:IF A$="" AND PEEK(653)<>4 THEN 2
  3. 3 IF PEEK(653)AND4 THEN POKE 53280,1:GOTO 10
  4. 4 POKE 199,0:IF A$="[177]" THEN CLOSE 1:END
  5. 5 IF A$=CHR$(20) THEN PRINT CHR$(20)CHR$(20);:A$=CHR$(127):GOTO 10
  6. 6 IF A$=CHR$(13) OR A$=CHR$(10) OR A$=>" "THEN PRINT CHR$(20)A$;:GOTO 9
  7. 7 IF PEEK(653) AND 4=0 THEN 2
  8. 8 PRINT CHR$(20)"#";MID$(STR$(ASC(A$+CHR$(0))),2);"[146]";
  9. 9 PRINT" [146]";:PRINT#1,A$;:GOTO 2
  10. 10 C$(1)="":C$(2)="":C=0:GET A$:IF(A$<"0" OR A$>"9") THEN 10
  11. 11 IF PEEK(653) AND 4 THEN POKE 53280,0:IF PEEK(653) AND 4 THEN GOSUB 19:GOTO 17
  12. 12 IF PEEK(53280)=0 THEN 17
  13. 13 GET B$:IF B$="" THEN 11
  14. 14 C=C+1:IF C>2 THEN 16
  15. 15 C$(C)=B$:IF C<2 THEN 11
  16. 16 POKE 53280,0
  17. 17 C$=A$+C$(1)+C$(2):A=VAL(C$+CHR$(0)):IF A>255 THEN A$="":GOTO 2
  18. 18 A$=CHR$(A):PRINT CHR$(20)"#";MID$(STR$(A),2)"[146]";:GOTO 9
  19. 19 IF PEEK(653) AND 4 THEN 19
  20. 20 RETURN
  21.